#!/usr/bin/perl
my $ligne=""; 
open (FILEIN,"p96.fic");
my $nbre_lignes=0;
my $nbre_mots=0;
while($ligne=<FILEIN>) 
{
  @liste = split (/ /,$ligne);
  $nbre_lignes+=1;
  $nbre_mots+= $#liste;
}
print "Le nombre de lignes = $nbre_lignes et le nombre des mots = $nbre_mots\n";
 